onetipp - 01_Vorbereitung - calc Server costs - SOURCE CODE

$server_costs = 5500;
$file = $ARGV[0];
open(R,"<$file");
while (<R>){
	my $umsatz = $_;
	chomp($umsatz);
	$server_instanzen = aufrunden((($umsatz/1000))/100);
	
	$server_instanzen_costs = $server_instanzen * $server_costs;
	
	if ($server_instanzen>3){
		$server_instanzen_costs_with_backup = $server_instanzen_costs + (int($server_instanzen/3) * $server_costs);
	} else {
		$server_instanzen_costs_with_backup = $server_instanzen_costs;
	}
	
	print "Umsatz: $umsatz - Instanzen: $server_instanzen - Kosten ohne Backup: $server_instanzen_costs - Kosten mit Backup: $server_instanzen_costs_with_backup\n";
}

sub aufrunden {
my ($zahl) = @_;
return $zahl if $zahl == int ($zahl);
return int ($zahl + 1);
}

$server_costs = 5500;
$file = $ARGV[0];
open(R,"<$file");
while (<R>){
	my $kostenserver = $_;
	chomp($kostenserver);
	$kostenserver1	= aufrunden($kostenserver/100000);
	$kostenserver2	= aufrunden($kostenserver1*$server_costs);
	print "Kosten ohne RZ für Server: $kostenserver - Kosten Mietserver nach RZ: $kostenserver2\n";
}

sub aufrunden {
my ($zahl) = @_;
return $zahl if $zahl == int ($zahl);
return int ($zahl + 1);
}